inherited dm_produto: Tdm_produto
  OldCreateOrder = True
  Left = 320
  Top = 170
  Height = 545
  Width = 874
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '  p.COD_PRODUTO,'
      '  p.LIG_COD_GRUPO,'
      '  p.LIG_COD_SUBGRUPO,'
      '  p.LIG_COD_CATEGORIA,'
      '  p.LIG_COD_MARCA,'
      '  p.LIG_COD_UNIDADE_MEDIDA,'
      '  p.LIG_COD_UNIDADE_RECEITA,'
      '  p.DESCRICAO,'
      '  p.APRESENTACAO,'
      '  p.COD_FABRICA,'
      '  p.COD_BARRAS,'
      '  p.GARANTIA_MESES,'
      '  p.ESTOQUE_ARMARIO,'
      '  p.ESTOQUE_ESTANTE,'
      '  p.ESTOQUE_ESCANILHO,'
      '  p.ESTOQUE_MAX,'
      '  p.ESTOQUE_MIN,'
      '  p.ESTOQUE_ATUAL,'
      '  p.CONTROLA_ESTOQUE,'
      '  p.PRECO_COMPRA,'
      '  p.PRECO_CUSTO,'
      '  p.MARKUP,'
      '  p.PERC_LUCRO,'
      '  p.VALOR_LUCRO,'
      '  p.PERC_COMISSAO,'
      '  p.VALOR_COMISSAO,'
      '  p.PERC_DESCTO,'
      '  p.VALOR_DESCTO,'
      '  p.PERC_MAX_DESCTO,'
      '  p.VALOR_MAX_DESCTO,'
      '  p.PRECO_VENDA,'
      '  p.PRECO_VENDA_MAX,'
      '  case'
      '    when p.controla_estoque = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as CONTROLA_ESTOQUE_DESC,'
      '  p.CONTROLA_LOTE,'
      '  case'
      '    when p.controla_lote = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as CONTROLA_LOTE_DESC,'
      '  p.FRACIONAMENTO,'
      '  case'
      '    when p.fracionamento = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as FRACIONAMENTO_DESC,'
      '  p.FORMACAO_KIT,'
      '  case'
      '    when p.formacao_kit = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as FORMACAO_KIT_DESC,'
      '  p.SITUACAO,'
      '  case'
      '    when p.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '  end as SITUACAO_DESC,'
      '  p.SITUACAO_VENDA,'
      '  case'
      
        '    when p.situacao_venda = '#39'True'#39' then '#39'Liberado'#39' else '#39'Bloquea' +
        'do'#39
      '  end as SITUACAO_VENDA_DESC,'
      '  p.data_cad,'
      '  p.data_alteracao,'
      '  a.descricao as grupo,'
      '  b.descricao as subgrupo,'
      '  c.descricao as categoria,'
      '  d.descricao as unid_medida,'
      '  d.estado_fisico,'
      '  d.abreviacao as unid_abreviacao,'
      '  e.descricao as receita_unid_medida,'
      '  e.estado_fisico as receita_unid_estado,'
      '  e.abreviacao as receita_unid_abreviacao,'
      '  f.descricao as marca'
      'from PRODUTO p'
      'left join produto_grupo a on (a.cod_grupo = p.lig_cod_grupo)'
      
        'left join produto_subgrupo b on (b.cod_subgrupo = p.lig_cod_subg' +
        'rupo)'
      
        'left join produto_categoria c on (c.cod_categoria = p.lig_cod_ca' +
        'tegoria)'
      
        'left join unidade_medida d on (d.cod_unidade = p.lig_cod_unidade' +
        '_medida)'
      
        'left join unidade_medida e on (e.cod_unidade = p.lig_cod_unidade' +
        '_receita)'
      'left join produto_marca f on (f.cod_marca = p.lig_cod_marca)')
    Left = 376
  end
  inherited dspConsulta: TDataSetProvider
    Left = 376
  end
  inherited cdsConsulta: TClientDataSet
    Left = 376
    object cdsConsultaCOD_PRODUTO: TIntegerField
      FieldName = 'COD_PRODUTO'
      Required = True
    end
    object cdsConsultaLIG_COD_GRUPO: TIntegerField
      FieldName = 'LIG_COD_GRUPO'
    end
    object cdsConsultaLIG_COD_SUBGRUPO: TIntegerField
      FieldName = 'LIG_COD_SUBGRUPO'
    end
    object cdsConsultaLIG_COD_CATEGORIA: TIntegerField
      FieldName = 'LIG_COD_CATEGORIA'
    end
    object cdsConsultaLIG_COD_MARCA: TIntegerField
      FieldName = 'LIG_COD_MARCA'
    end
    object cdsConsultaLIG_COD_UNIDADE_MEDIDA: TIntegerField
      FieldName = 'LIG_COD_UNIDADE_MEDIDA'
      Required = True
    end
    object cdsConsultaLIG_COD_UNIDADE_RECEITA: TIntegerField
      FieldName = 'LIG_COD_UNIDADE_RECEITA'
    end
    object cdsConsultaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaAPRESENTACAO: TStringField
      FieldName = 'APRESENTACAO'
      Required = True
      Size = 100
    end
    object cdsConsultaCOD_FABRICA: TIntegerField
      FieldName = 'COD_FABRICA'
    end
    object cdsConsultaCOD_BARRAS: TStringField
      FieldName = 'COD_BARRAS'
    end
    object cdsConsultaGARANTIA_MESES: TIntegerField
      FieldName = 'GARANTIA_MESES'
    end
    object cdsConsultaESTOQUE_ARMARIO: TStringField
      FieldName = 'ESTOQUE_ARMARIO'
      Size = 100
    end
    object cdsConsultaESTOQUE_ESTANTE: TStringField
      FieldName = 'ESTOQUE_ESTANTE'
      Size = 100
    end
    object cdsConsultaESTOQUE_ESCANILHO: TStringField
      FieldName = 'ESTOQUE_ESCANILHO'
      Size = 100
    end
    object cdsConsultaESTOQUE_MAX: TIntegerField
      FieldName = 'ESTOQUE_MAX'
    end
    object cdsConsultaESTOQUE_MIN: TIntegerField
      FieldName = 'ESTOQUE_MIN'
    end
    object cdsConsultaESTOQUE_ATUAL: TIntegerField
      FieldName = 'ESTOQUE_ATUAL'
    end
    object cdsConsultaCONTROLA_ESTOQUE: TStringField
      FieldName = 'CONTROLA_ESTOQUE'
      Size = 5
    end
    object cdsConsultaPRECO_COMPRA: TFMTBCDField
      FieldName = 'PRECO_COMPRA'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPRECO_CUSTO: TFMTBCDField
      FieldName = 'PRECO_CUSTO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaMARKUP: TFMTBCDField
      FieldName = 'MARKUP'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPERC_LUCRO: TFMTBCDField
      FieldName = 'PERC_LUCRO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaVALOR_LUCRO: TFMTBCDField
      FieldName = 'VALOR_LUCRO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPERC_COMISSAO: TFMTBCDField
      FieldName = 'PERC_COMISSAO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaVALOR_COMISSAO: TFMTBCDField
      FieldName = 'VALOR_COMISSAO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPERC_DESCTO: TFMTBCDField
      FieldName = 'PERC_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaVALOR_DESCTO: TFMTBCDField
      FieldName = 'VALOR_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPERC_MAX_DESCTO: TFMTBCDField
      FieldName = 'PERC_MAX_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaVALOR_MAX_DESCTO: TFMTBCDField
      FieldName = 'VALOR_MAX_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPRECO_VENDA: TFMTBCDField
      FieldName = 'PRECO_VENDA'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPRECO_VENDA_MAX: TFMTBCDField
      FieldName = 'PRECO_VENDA_MAX'
      Precision = 15
      Size = 2
    end
    object cdsConsultaCONTROLA_ESTOQUE_DESC: TStringField
      FieldName = 'CONTROLA_ESTOQUE_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCONTROLA_LOTE: TStringField
      FieldName = 'CONTROLA_LOTE'
      Size = 5
    end
    object cdsConsultaCONTROLA_LOTE_DESC: TStringField
      FieldName = 'CONTROLA_LOTE_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaFRACIONAMENTO: TStringField
      FieldName = 'FRACIONAMENTO'
      Size = 5
    end
    object cdsConsultaFRACIONAMENTO_DESC: TStringField
      FieldName = 'FRACIONAMENTO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaFORMACAO_KIT: TStringField
      FieldName = 'FORMACAO_KIT'
      Size = 5
    end
    object cdsConsultaFORMACAO_KIT_DESC: TStringField
      FieldName = 'FORMACAO_KIT_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaSITUACAO_VENDA: TStringField
      FieldName = 'SITUACAO_VENDA'
      Size = 5
    end
    object cdsConsultaSITUACAO_VENDA_DESC: TStringField
      FieldName = 'SITUACAO_VENDA_DESC'
      Required = True
      FixedChar = True
      Size = 9
    end
    object cdsConsultaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 100
    end
    object cdsConsultaSUBGRUPO: TStringField
      FieldName = 'SUBGRUPO'
      Size = 100
    end
    object cdsConsultaCATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      Size = 100
    end
    object cdsConsultaUNID_MEDIDA: TStringField
      FieldName = 'UNID_MEDIDA'
      Size = 100
    end
    object cdsConsultaESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
    object cdsConsultaUNID_ABREVIACAO: TStringField
      FieldName = 'UNID_ABREVIACAO'
      Size = 5
    end
    object cdsConsultaRECEITA_UNID_MEDIDA: TStringField
      FieldName = 'RECEITA_UNID_MEDIDA'
      Size = 100
    end
    object cdsConsultaRECEITA_UNID_ESTADO: TStringField
      FieldName = 'RECEITA_UNID_ESTADO'
      Size = 15
    end
    object cdsConsultaRECEITA_UNID_ABREVIACAO: TStringField
      FieldName = 'RECEITA_UNID_ABREVIACAO'
      Size = 5
    end
    object cdsConsultaMARCA: TStringField
      FieldName = 'MARCA'
      Size = 100
    end
    object cdsConsultasqlConsutlaFornec: TDataSetField
      FieldName = 'sqlConsutlaFornec'
    end
    object cdsConsultasqlConsultaReserva: TDataSetField
      FieldName = 'sqlConsultaReserva'
    end
    object cdsConsultasqlConsultaReq: TDataSetField
      FieldName = 'sqlConsultaReq'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_produto,1)'
      'FROM RDB$DATABASE')
    Left = 449
    Top = 212
  end
  inherited dspRegistro: TDataSetProvider
    Options = [poCascadeDeletes, poCascadeUpdates]
    Left = 448
  end
  inherited cdsRegistro: TClientDataSet
    OnReconcileError = cdsRegistroReconcileError
    Left = 448
    object cdsRegistroCOD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_PRODUTO'
      Required = True
    end
    object cdsRegistroLIG_COD_GRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_GRUPO'
    end
    object cdsRegistroLIG_COD_SUBGRUPO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_SUBGRUPO'
    end
    object cdsRegistroLIG_COD_CATEGORIA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_CATEGORIA'
    end
    object cdsRegistroLIG_COD_MARCA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_MARCA'
    end
    object cdsRegistroLIG_COD_UNIDADE_MEDIDA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_UNIDADE_MEDIDA'
      Required = True
    end
    object cdsRegistroLIG_COD_UNIDADE_RECEITA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_UNIDADE_RECEITA'
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsRegistroAPRESENTACAO: TStringField
      FieldName = 'APRESENTACAO'
      Required = True
      Size = 100
    end
    object cdsRegistroCOD_FABRICA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_FABRICA'
    end
    object cdsRegistroCOD_BARRAS: TStringField
      Alignment = taCenter
      FieldName = 'COD_BARRAS'
    end
    object cdsRegistroGARANTIA_MESES: TIntegerField
      FieldName = 'GARANTIA_MESES'
    end
    object cdsRegistroESTOQUE_ARMARIO: TStringField
      FieldName = 'ESTOQUE_ARMARIO'
      Size = 100
    end
    object cdsRegistroESTOQUE_ESTANTE: TStringField
      FieldName = 'ESTOQUE_ESTANTE'
      Size = 100
    end
    object cdsRegistroESTOQUE_ESCANILHO: TStringField
      FieldName = 'ESTOQUE_ESCANILHO'
      Size = 100
    end
    object cdsRegistroESTOQUE_MAX: TIntegerField
      Alignment = taCenter
      FieldName = 'ESTOQUE_MAX'
    end
    object cdsRegistroESTOQUE_MIN: TIntegerField
      Alignment = taCenter
      FieldName = 'ESTOQUE_MIN'
    end
    object cdsRegistroCONTROLA_ESTOQUE: TStringField
      FieldName = 'CONTROLA_ESTOQUE'
      Size = 5
    end
    object cdsRegistroCONTROLA_LOTE: TStringField
      FieldName = 'CONTROLA_LOTE'
      Size = 5
    end
    object cdsRegistroFRACIONAMENTO: TStringField
      FieldName = 'FRACIONAMENTO'
      Size = 5
    end
    object cdsRegistroFORMACAO_KIT: TStringField
      FieldName = 'FORMACAO_KIT'
      Size = 5
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroSITUACAO_VENDA: TStringField
      FieldName = 'SITUACAO_VENDA'
      Size = 5
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistroPRECO_COMPRA: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PRECO_COMPRA'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPRECO_CUSTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PRECO_CUSTO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroMARKUP: TFMTBCDField
      Alignment = taCenter
      FieldName = 'MARKUP'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPERC_LUCRO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_LUCRO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroVALOR_LUCRO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VALOR_LUCRO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPERC_COMISSAO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_COMISSAO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroVALOR_COMISSAO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VALOR_COMISSAO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPERC_DESCTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroVALOR_DESCTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VALOR_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPERC_MAX_DESCTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_MAX_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroVALOR_MAX_DESCTO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VALOR_MAX_DESCTO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPRECO_VENDA: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PRECO_VENDA'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPRECO_VENDA_MAX: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PRECO_VENDA_MAX'
      Precision = 15
      Size = 2
    end
    object cdsRegistroF_REGISTRO_CAS: TStringField
      Alignment = taCenter
      FieldName = 'F_REGISTRO_CAS'
      Size = 30
    end
    object cdsRegistroF_REGISTRO_DCB: TStringField
      Alignment = taCenter
      FieldName = 'F_REGISTRO_DCB'
      Size = 30
    end
    object cdsRegistroF_REGISTRO_DCI: TStringField
      Alignment = taCenter
      FieldName = 'F_REGISTRO_DCI'
      Size = 30
    end
    object cdsRegistroF_REGISTRO_MS: TStringField
      Alignment = taCenter
      FieldName = 'F_REGISTRO_MS'
      Size = 30
    end
    object cdsRegistroF_PH_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_PH_MINIMO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroF_PH_MAXIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_PH_MAXIMO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroF_PERC_TOLERANCIA_MENOS: TIntegerField
      Alignment = taCenter
      FieldName = 'F_PERC_TOLERANCIA_MENOS'
    end
    object cdsRegistroF_PERC_TOLERANCIA_MAIS: TIntegerField
      Alignment = taCenter
      FieldName = 'F_PERC_TOLERANCIA_MAIS'
    end
    object cdsRegistroF_VALIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'F_VALIDADE'
    end
    object cdsRegistroF_NOME_CIENTIFICO: TStringField
      FieldName = 'F_NOME_CIENTIFICO'
      Size = 100
    end
    object cdsRegistroF_FATOR: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_FATOR'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroF_PERC_TEOR: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_PERC_TEOR'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroF_DENSIDADE: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DENSIDADE'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroF_DOSAGEM_POS_COD_UNID_MIN: TIntegerField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_POS_COD_UNID_MIN'
    end
    object cdsRegistroF_DOSAGEM_POS_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_POS_MINIMO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRegistroF_DOSAGEM_POS_COD_UNID_MAX: TIntegerField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_POS_COD_UNID_MAX'
    end
    object cdsRegistroF_DOSAGEM_POS_MAXIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_POS_MAXIMO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRegistroF_DOSAGEM_DIA_COD_UNID_MIN: TIntegerField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_DIA_COD_UNID_MIN'
    end
    object cdsRegistroF_DOSAGEM_DIA_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_DIA_MINIMO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRegistroF_DOSAGEM_DIA_COD_UNID_MAX: TIntegerField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_DIA_COD_UNID_MAX'
    end
    object cdsRegistroF_DOSAGEM_DIA_MAXIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_DIA_MAXIMO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRegistroF_DOSAGEM_EXT_COD_UNID_MIN: TIntegerField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_EXT_COD_UNID_MIN'
    end
    object cdsRegistroF_DOSAGEM_EXT_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_EXT_MINIMO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRegistroF_DOSAGEM_EXT_COD_UNID_MAX: TIntegerField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_EXT_COD_UNID_MAX'
    end
    object cdsRegistroF_DOSAGEM_EXT_MAXIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'F_DOSAGEM_EXT_MAXIMO'
      DisplayFormat = ',0.000'
      EditFormat = ',0.000'
      currency = True
      Precision = 15
      Size = 3
    end
    object cdsRegistroF_USO_CONTINUO: TStringField
      FieldName = 'F_USO_CONTINUO'
      Size = 5
    end
    object cdsRegistroF_USO_CONTROLADO: TStringField
      FieldName = 'F_USO_CONTROLADO'
      Size = 5
    end
    object cdsRegistroF_SNGPC_INCONSISTENTE: TStringField
      FieldName = 'F_SNGPC_INCONSISTENTE'
      Size = 5
    end
    object cdsRegistroF_ISENTO_PRESCRICAO: TStringField
      FieldName = 'F_ISENTO_PRESCRICAO'
      Size = 5
    end
    object cdsRegistroF_HOMEOPATICO_INSUMO: TStringField
      FieldName = 'F_HOMEOPATICO_INSUMO'
      Size = 5
    end
    object cdsRegistroF_HOMEOPATICO_MATRIZ: TStringField
      FieldName = 'F_HOMEOPATICO_MATRIZ'
      Size = 5
    end
    object cdsRegistroF_UTILIZA_EXCIPIENTE: TStringField
      FieldName = 'F_UTILIZA_EXCIPIENTE'
      Size = 5
    end
    object cdsRegistroF_VISUALIZAR_RECEITA: TStringField
      FieldName = 'F_VISUALIZAR_RECEITA'
      Size = 5
    end
    object cdsRegistroF_VISUALIZAR_BMPO: TStringField
      FieldName = 'F_VISUALIZAR_BMPO'
      Size = 5
    end
    object cdsRegistroF_VISUALIZAR_BSPO: TStringField
      FieldName = 'F_VISUALIZAR_BSPO'
      Size = 5
    end
    object cdsRegistroF_VISUALIZAR_LIVRO: TStringField
      FieldName = 'F_VISUALIZAR_LIVRO'
      Size = 5
    end
    object cdsRegistroF_LISTA_PORTARIA: TStringField
      FieldName = 'F_LISTA_PORTARIA'
      Size = 5
    end
    object cdsRegistrosqlProdutoClassif: TDataSetField
      FieldName = 'sqlProdutoClassif'
    end
    object cdsRegistrosqlProdutoFornec: TDataSetField
      FieldName = 'sqlProdutoFornec'
    end
    object cdsRegistrosqlProdutoReserva: TDataSetField
      FieldName = 'sqlProdutoReserva'
    end
    object cdsRegistrosqlProdutoSinonimo: TDataSetField
      FieldName = 'sqlProdutoSinonimo'
    end
    object cdsRegistrosqlProdutoSolubilidade: TDataSetField
      FieldName = 'sqlProdutoSolubilidade'
    end
    object cdsRegistrosqlProdutoUnidEspecial: TDataSetField
      FieldName = 'sqlProdutoUnidEspecial'
    end
    object cdsRegistrosqlProdutoArmazena: TDataSetField
      FieldName = 'sqlProdutoArmazena'
    end
    object cdsRegistrosqlProdutoIncompativel: TDataSetField
      FieldName = 'sqlProdutoIncompativel'
    end
    object cdsRegistrosqlProdutoAssociado: TDataSetField
      FieldName = 'sqlProdutoAssociado'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_produto'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  p.COD_PRODUTO,'
      '  p.LIG_COD_GRUPO,'
      '  p.LIG_COD_SUBGRUPO,'
      '  p.LIG_COD_CATEGORIA,'
      '  p.LIG_COD_MARCA,'
      '  p.LIG_COD_UNIDADE_MEDIDA,'
      '  p.LIG_COD_UNIDADE_RECEITA,'
      '  p.DESCRICAO,'
      '  p.APRESENTACAO,'
      '  p.COD_FABRICA,'
      '  p.COD_BARRAS,'
      '  p.GARANTIA_MESES,'
      '  p.ESTOQUE_ARMARIO,'
      '  p.ESTOQUE_ESTANTE,'
      '  p.ESTOQUE_ESCANILHO,'
      '  p.ESTOQUE_MAX,'
      '  p.ESTOQUE_MIN,'
      '  p.CONTROLA_ESTOQUE,'
      '  p.CONTROLA_LOTE,'
      '  p.FRACIONAMENTO,'
      '  p.FORMACAO_KIT,'
      '  p.SITUACAO,'
      '  p.SITUACAO_VENDA,'
      '  p.DATA_ALTERACAO,'
      '  p.PRECO_COMPRA,'
      '  p.PRECO_CUSTO,'
      '  p.MARKUP,'
      '  p.PERC_LUCRO,'
      '  p.VALOR_LUCRO,'
      '  p.PERC_COMISSAO,'
      '  p.VALOR_COMISSAO,'
      '  p.PERC_DESCTO,'
      '  p.VALOR_DESCTO,'
      '  p.PERC_MAX_DESCTO,'
      '  p.VALOR_MAX_DESCTO,'
      '  p.PRECO_VENDA,'
      '  p.PRECO_VENDA_MAX,'
      '  p.F_REGISTRO_CAS,'
      '  p.F_REGISTRO_DCB,'
      '  p.F_REGISTRO_DCI,'
      '  p.F_REGISTRO_MS,'
      '  p.F_PH_MINIMO,'
      '  p.F_PH_MAXIMO,'
      '  p.F_PERC_TOLERANCIA_MENOS,'
      '  p.F_PERC_TOLERANCIA_MAIS,'
      '  p.F_VALIDADE,'
      '  p.F_NOME_CIENTIFICO,'
      '  p.F_FATOR,'
      '  p.F_PERC_TEOR,'
      '  p.F_DENSIDADE,'
      '  p.F_DOSAGEM_POS_COD_UNID_MIN,'
      '  p.F_DOSAGEM_POS_MINIMO,'
      '  p.F_DOSAGEM_POS_COD_UNID_MAX,'
      '  p.F_DOSAGEM_POS_MAXIMO,'
      '  p.F_DOSAGEM_DIA_COD_UNID_MIN,'
      '  p.F_DOSAGEM_DIA_MINIMO,'
      '  p.F_DOSAGEM_DIA_COD_UNID_MAX,'
      '  p.F_DOSAGEM_DIA_MAXIMO,'
      '  p.F_DOSAGEM_EXT_COD_UNID_MIN,'
      '  p.F_DOSAGEM_EXT_MINIMO,'
      '  p.F_DOSAGEM_EXT_COD_UNID_MAX,'
      '  p.F_DOSAGEM_EXT_MAXIMO,'
      '  p.F_USO_CONTINUO,'
      '  p.F_USO_CONTROLADO,'
      '  p.F_SNGPC_INCONSISTENTE,'
      '  p.F_ISENTO_PRESCRICAO,'
      '  p.F_HOMEOPATICO_INSUMO,'
      '  p.F_HOMEOPATICO_MATRIZ,'
      '  p.F_UTILIZA_EXCIPIENTE,'
      '  p.F_VISUALIZAR_RECEITA,'
      '  p.F_VISUALIZAR_BMPO,'
      '  p.F_VISUALIZAR_BSPO,'
      '  p.F_VISUALIZAR_LIVRO,'
      '  p.F_LISTA_PORTARIA'
      'from PRODUTO p'
      'where p.cod_produto = :cod_produto')
    Left = 448
  end
  object dsMestre_Detalhe_Consulta: TDataSource
    DataSet = sqlConsulta
    Left = 273
    Top = 18
  end
  object sqlConsultaReserva: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  r.cod_reserva,'
      '  r.lig_cod_empresa,'
      '  r.lig_cod_produto,'
      '  r.contato,'
      '  r.contato_telefone,'
      '  r.quantidade,'
      '  r.data_vencimento,'
      '  r.data_cad,'
      '  r.data_alteracao,'
      '  r.situacao,'
      '  case'
      '    when r.situacao = '#39'True'#39' then '#39'Ativa'#39' else '#39'Inativa'#39
      '  end as situacao_desc,'
      '  a.descricao_multiempresa as empresa'
      'from PRODUTO_RESERVA r'
      'left join empresa a on (a.cod_empresa = r.lig_cod_empresa)'
      'where r.lig_cod_produto = :COD_PRODUTO'
      'order by r.data_vencimento desc')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 145
    Top = 18
    object sqlConsultaReservaCOD_RESERVA: TIntegerField
      FieldName = 'COD_RESERVA'
      Required = True
    end
    object sqlConsultaReservaLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object sqlConsultaReservaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlConsultaReservaCONTATO: TStringField
      FieldName = 'CONTATO'
      Required = True
      Size = 100
    end
    object sqlConsultaReservaCONTATO_TELEFONE: TStringField
      FieldName = 'CONTATO_TELEFONE'
    end
    object sqlConsultaReservaQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object sqlConsultaReservaDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object sqlConsultaReservaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaReservaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlConsultaReservaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object sqlConsultaReservaSITUACAO_DESC: TStringField
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object sqlConsultaReservaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 50
    end
  end
  object cdsConsultaReserva: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaReserva
    Params = <>
    Left = 41
    Top = 18
    object cdsConsultaReservaCOD_RESERVA: TIntegerField
      FieldName = 'COD_RESERVA'
      Required = True
    end
    object cdsConsultaReservaLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaReservaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsConsultaReservaCONTATO: TStringField
      FieldName = 'CONTATO'
      Required = True
      Size = 100
    end
    object cdsConsultaReservaCONTATO_TELEFONE: TStringField
      FieldName = 'CONTATO_TELEFONE'
    end
    object cdsConsultaReservaQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object cdsConsultaReservaDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsConsultaReservaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaReservaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaReservaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaReservaSITUACAO_DESC: TStringField
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaReservaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 50
    end
  end
  object cdsConsultaFornec: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsutlaFornec
    Params = <>
    Left = 41
    Top = 66
    object cdsConsultaFornecLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsConsultaFornecLIG_COD_FORNECEDOR: TIntegerField
      FieldName = 'LIG_COD_FORNECEDOR'
      Required = True
    end
    object cdsConsultaFornecCOD_IDENTIFICA_FORNEC: TIntegerField
      FieldName = 'COD_IDENTIFICA_FORNEC'
    end
    object cdsConsultaFornecRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 50
    end
    object cdsConsultaFornecNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      Size = 100
    end
    object cdsConsultaFornecCNPJ: TStringField
      FieldName = 'CNPJ'
    end
    object cdsConsultaFornecEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cdsConsultaFornecTEL_CELULAR: TStringField
      FieldName = 'TEL_CELULAR'
    end
    object cdsConsultaFornecTEL_COMERCIAL: TStringField
      FieldName = 'TEL_COMERCIAL'
    end
    object cdsConsultaFornecLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 36
    end
  end
  object sqlConsutlaFornec: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  f.lig_cod_produto,'
      '  f.lig_cod_fornecedor,'
      '  f.cod_identifica_fornec,'
      '  a.razao_social,'
      '  a.nome_fantasia,'
      '  a.cnpj,'
      '  a.email,'
      '  a.tel_celular,'
      '  a.tel_comercial,'
      '  a.localidade ||'#39'/'#39'|| a.uf as localidade'
      'from PRODUTO_FORNECEDOR f'
      
        'left join fornecedor a on (a.cod_fornecedor = f.lig_cod_forneced' +
        'or)'
      'where f.lig_cod_produto = :cod_produto'
      'order by a.nome_fantasia'
      '')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 145
    Top = 66
    object sqlConsutlaFornecLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlConsutlaFornecLIG_COD_FORNECEDOR: TIntegerField
      FieldName = 'LIG_COD_FORNECEDOR'
      Required = True
    end
    object sqlConsutlaFornecCOD_IDENTIFICA_FORNEC: TIntegerField
      FieldName = 'COD_IDENTIFICA_FORNEC'
    end
    object sqlConsutlaFornecRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 50
    end
    object sqlConsutlaFornecNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      Size = 100
    end
    object sqlConsutlaFornecCNPJ: TStringField
      FieldName = 'CNPJ'
    end
    object sqlConsutlaFornecEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object sqlConsutlaFornecTEL_CELULAR: TStringField
      FieldName = 'TEL_CELULAR'
    end
    object sqlConsutlaFornecTEL_COMERCIAL: TStringField
      FieldName = 'TEL_COMERCIAL'
    end
    object sqlConsutlaFornecLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 36
    end
  end
  object dsMestre_Detalhe: TDataSource
    DataSet = sqlRegistro
    Left = 529
    Top = 18
  end
  object sqlProdutoReserva: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  r.cod_reserva,'
      '  r.lig_cod_produto,'
      '  r.lig_cod_empresa,'
      '  r.contato,'
      '  r.contato_telefone,'
      '  r.quantidade,'
      '  r.data_vencimento,'
      '  r.data_cad,'
      '  r.data_alteracao,'
      '  r.situacao'
      'from PRODUTO_RESERVA r'
      'where r.lig_cod_produto = :cod_produto'
      'order by r.data_vencimento desc')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 633
    Top = 18
    object sqlProdutoReservaCOD_RESERVA: TIntegerField
      FieldName = 'COD_RESERVA'
      Required = True
    end
    object sqlProdutoReservaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoReservaLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object sqlProdutoReservaCONTATO: TStringField
      FieldName = 'CONTATO'
      Required = True
      Size = 100
    end
    object sqlProdutoReservaCONTATO_TELEFONE: TStringField
      FieldName = 'CONTATO_TELEFONE'
    end
    object sqlProdutoReservaQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object sqlProdutoReservaDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object sqlProdutoReservaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlProdutoReservaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlProdutoReservaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
  end
  object cdsProdutoReserva: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoReserva
    Params = <>
    Left = 753
    Top = 18
    object cdsProdutoReservaCOD_RESERVA: TIntegerField
      FieldName = 'COD_RESERVA'
      Required = True
    end
    object cdsProdutoReservaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoReservaLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsProdutoReservaCONTATO: TStringField
      FieldName = 'CONTATO'
      Required = True
      Size = 100
    end
    object cdsProdutoReservaCONTATO_TELEFONE: TStringField
      FieldName = 'CONTATO_TELEFONE'
    end
    object cdsProdutoReservaQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object cdsProdutoReservaDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsProdutoReservaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsProdutoReservaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsProdutoReservaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
  end
  object cdsProdutoFornec: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoFornec
    Params = <>
    Left = 753
    Top = 66
    object cdsProdutoFornecLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoFornecLIG_COD_FORNECEDOR: TIntegerField
      FieldName = 'LIG_COD_FORNECEDOR'
      Required = True
    end
    object cdsProdutoFornecCOD_IDENTIFICA_FORNEC: TIntegerField
      FieldName = 'COD_IDENTIFICA_FORNEC'
    end
    object cdsProdutoFornecNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      ProviderFlags = []
      Size = 100
    end
  end
  object sqlProdutoFornec: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  f.lig_cod_produto,'
      '  f.lig_cod_fornecedor,'
      '  f.cod_identifica_fornec,'
      '  a.nome_fantasia'
      'from PRODUTO_FORNECEDOR f'
      
        'left join fornecedor a on (a.cod_fornecedor = f.lig_cod_forneced' +
        'or)'
      'where f.lig_cod_produto = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 633
    Top = 66
    object sqlProdutoFornecLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoFornecLIG_COD_FORNECEDOR: TIntegerField
      FieldName = 'LIG_COD_FORNECEDOR'
      Required = True
    end
    object sqlProdutoFornecCOD_IDENTIFICA_FORNEC: TIntegerField
      FieldName = 'COD_IDENTIFICA_FORNEC'
    end
    object sqlProdutoFornecNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      ProviderFlags = []
      Size = 100
    end
  end
  object qryPKProdutoReserva: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_produto_reserva,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 449
    Top = 258
    object qryPKProdutoReservaGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object cdsAuxFornecedor: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 215
    Top = 258
    Data = {
      750000009619E0BD0100000018000000030000000000030000007500124C4947
      5F434F445F464F524E454345444F52040001000000000015636F645F6964656E
      7469666963615F666F726E656304000100000000000D4E4F4D455F46414E5441
      53494101004900000001000557494454480200020064000000}
    object cdsAuxFornecedorLIG_COD_FORNECEDOR: TIntegerField
      DisplayWidth = 11
      FieldName = 'LIG_COD_FORNECEDOR'
    end
    object cdsAuxFornecedorcod_identifica_fornec: TIntegerField
      DisplayWidth = 10
      FieldName = 'cod_identifica_fornec'
    end
    object cdsAuxFornecedorNOME_FANTASIA: TStringField
      DisplayWidth = 53
      FieldName = 'NOME_FANTASIA'
      Size = 100
    end
  end
  object cdsAuxReserva: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 327
    Top = 258
    Data = {
      970000009619E0BD010000001800000005000000000003000000970007434F4E
      5441544F010049000000010005574944544802000200640010434F4E5441544F
      5F54454C45464F4E4501004900000001000557494454480200020014000A5155
      414E544944414445040001000000000008444154415F43414404000600000000
      000F444154415F56454E43494D454E544F04000600000000000000}
    object cdsAuxReservaCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 100
    end
    object cdsAuxReservaCONTATO_TELEFONE: TStringField
      FieldName = 'CONTATO_TELEFONE'
    end
    object cdsAuxReservaQUANTIDADE: TIntegerField
      FieldName = 'QUANTIDADE'
    end
    object cdsAuxReservaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsAuxReservaDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
  end
  object cdsConsultaReq: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaReq
    Params = <>
    Left = 40
    Top = 114
    object cdsConsultaReqLIG_COD_REQUISICAO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_REQUISICAO'
      Required = True
    end
    object cdsConsultaReqFUNCIONARIO: TStringField
      FieldName = 'FUNCIONARIO'
      Size = 100
    end
    object cdsConsultaReqQTDE: TFMTBCDField
      Alignment = taCenter
      FieldName = 'QTDE'
      Precision = 15
      Size = 0
    end
    object cdsConsultaReqDATA_VENCIMENTO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_VENCIMENTO'
    end
    object cdsConsultaReqSITUACAO: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO'
      Required = True
      FixedChar = True
      Size = 8
    end
  end
  object sqlConsultaReq: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    r.lig_cod_requisicao,'
      '    b.descricao as funcionario,'
      '    (r.qtde_requerida - r.qtde_devolvida) as qtde,'
      '    r.data_vencimento,'
      '    case'
      '      when a.situacao = '#39'True'#39' then '#39'Aberta'#39' else '#39'Faturada'#39
      '    end as situacao'
      'from produto_requisicao_itens r'
      
        'left join produto_requisicao a on (a.cod_requisicao = r.lig_cod_' +
        'requisicao)'
      
        'left join funcionario b on (b.cod_funcionario = a.lig_cod_funcio' +
        'nario)'
      'where r.lig_cod_produto = :cod_produto and a.situacao = '#39'True'#39
      'order by r.data_vencimento')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 144
    Top = 114
    object sqlConsultaReqLIG_COD_REQUISICAO: TIntegerField
      FieldName = 'LIG_COD_REQUISICAO'
      Required = True
    end
    object sqlConsultaReqFUNCIONARIO: TStringField
      FieldName = 'FUNCIONARIO'
      Size = 100
    end
    object sqlConsultaReqQTDE: TFMTBCDField
      FieldName = 'QTDE'
      Precision = 15
      Size = 0
    end
    object sqlConsultaReqDATA_VENCIMENTO: TDateField
      FieldName = 'DATA_VENCIMENTO'
    end
    object sqlConsultaReqSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Required = True
      FixedChar = True
      Size = 8
    end
  end
  object sqlProdutoClassif: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.lig_cod_produto,'
      '  a.lig_cod_class_terapeutica,'
      '  a.prioridade,'
      '  b.descricao as class_terapeutica'
      'from F_PRODUTO_CLASS_TERAPEUTICA a'
      
        'left join f_classificacao_terapeutica b on (b.cod_classificacao ' +
        '= a.lig_cod_class_terapeutica)'
      'where a.lig_cod_produto = :cod_produto'
      'order by a.prioridade')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 114
    object sqlProdutoClassifLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoClassifLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object sqlProdutoClassifPRIORIDADE: TIntegerField
      FieldName = 'PRIORIDADE'
      Required = True
    end
    object sqlProdutoClassifCLASS_TERAPEUTICA: TStringField
      FieldName = 'CLASS_TERAPEUTICA'
      ProviderFlags = []
      Size = 100
    end
  end
  object cdsProdutoClassif: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoClassif
    Params = <>
    Left = 752
    Top = 114
    object cdsProdutoClassifLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoClassifLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object cdsProdutoClassifPRIORIDADE: TIntegerField
      FieldName = 'PRIORIDADE'
      Required = True
    end
    object cdsProdutoClassifCLASS_TERAPEUTICA: TStringField
      FieldName = 'CLASS_TERAPEUTICA'
      ProviderFlags = []
      Size = 100
    end
  end
  object cdsAuxClassif: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 214
    Top = 352
    Data = {
      750000009619E0BD0100000018000000030000000000030000007500194C4947
      5F434F445F434C4153535F544552415045555449434104000100000000000A50
      52494F524944414445040001000000000011434C4153535F5445524150455554
      49434101004900000001000557494454480200020064000000}
    object cdsAuxClassifLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      DisplayWidth = 25
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
    end
    object cdsAuxClassifPRIORIDADE: TIntegerField
      DisplayWidth = 10
      FieldName = 'PRIORIDADE'
    end
    object cdsAuxClassifCLASS_TERAPEUTICA: TStringField
      DisplayWidth = 41
      FieldName = 'CLASS_TERAPEUTICA'
      Size = 100
    end
  end
  object sqlProdutoSinonimo: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    a.COD_SINONIMO,'
      '    a.LIG_COD_PRODUTO,'
      '    a.DESCRICAO,'
      '    a.ROTULO,'
      '    a.EQUIVALENCIA'
      'from F_PRODUTO_SINONIMO a'
      'where a.lig_cod_produto = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 162
    object sqlProdutoSinonimoCOD_SINONIMO: TIntegerField
      FieldName = 'COD_SINONIMO'
      Required = True
    end
    object sqlProdutoSinonimoLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoSinonimoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlProdutoSinonimoROTULO: TStringField
      FieldName = 'ROTULO'
      Required = True
      Size = 100
    end
    object sqlProdutoSinonimoEQUIVALENCIA: TFMTBCDField
      FieldName = 'EQUIVALENCIA'
      currency = True
      Precision = 15
      Size = 2
    end
  end
  object cdsProdutoSinonimo: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoSinonimo
    Params = <>
    Left = 752
    Top = 162
    object cdsProdutoSinonimoCOD_SINONIMO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_SINONIMO'
      Required = True
    end
    object cdsProdutoSinonimoLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoSinonimoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsProdutoSinonimoROTULO: TStringField
      FieldName = 'ROTULO'
      Required = True
      Size = 100
    end
    object cdsProdutoSinonimoEQUIVALENCIA: TFMTBCDField
      Alignment = taCenter
      FieldName = 'EQUIVALENCIA'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
  end
  object cdsAuxSinonimo: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 326
    Top = 304
    Data = {
      830000009619E0BD020000001800000003000000000003000000830009444553
      43524943414F010049000000010005574944544802000200640006524F54554C
      4F01004900000001000557494454480200020064000C4551554956414C454E43
      4941120012000000020008444543494D414C5302000200080005574944544802
      00020020000000}
    object cdsAuxSinonimoDESCRICAO: TStringField
      DisplayWidth = 35
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsAuxSinonimoROTULO: TStringField
      DisplayWidth = 35
      FieldName = 'ROTULO'
      Size = 100
    end
    object cdsAuxSinonimoEQUIVALENCIA: TFMTBCDField
      DisplayWidth = 4
      FieldName = 'EQUIVALENCIA'
      Size = 8
    end
  end
  object qryPKProdutoSinonimo: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_produto_sinonimo,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 449
    Top = 304
    object qryPKProdutoSinonimoGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object sqlProdutoSolubilidade: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.cod_solubilidade,'
      '  a.lig_cod_produto,'
      '  a.descricao,'
      '  a.tipo_solubilidade,'
      '  a.data_cad'
      'from F_PRODUTO_SOLUBILIDADE a'
      'where a.lig_cod_produto = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 208
    object sqlProdutoSolubilidadeCOD_SOLUBILIDADE: TIntegerField
      FieldName = 'COD_SOLUBILIDADE'
      Required = True
    end
    object sqlProdutoSolubilidadeLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoSolubilidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlProdutoSolubilidadeTIPO_SOLUBILIDADE: TStringField
      FieldName = 'TIPO_SOLUBILIDADE'
      Required = True
    end
    object sqlProdutoSolubilidadeDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
  end
  object qryPKProdutoSolubilidade: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_produto_solubilidade,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 448
    Top = 352
    object qryPKProdutoSolubilidadeGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object cdsProdutoSolubilidade: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoSolubilidade
    Params = <>
    Left = 752
    Top = 208
    object cdsProdutoSolubilidadeCOD_SOLUBILIDADE: TIntegerField
      FieldName = 'COD_SOLUBILIDADE'
      Required = True
    end
    object cdsProdutoSolubilidadeLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoSolubilidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsProdutoSolubilidadeTIPO_SOLUBILIDADE: TStringField
      FieldName = 'TIPO_SOLUBILIDADE'
      Required = True
    end
    object cdsProdutoSolubilidadeDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
  end
  object cdsAuxSolubilidade: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 326
    Top = 352
    Data = {
      5E0000009619E0BD0100000018000000020000000000030000005E0009444553
      43524943414F0100490000000100055749445448020002006400115449504F5F
      534F4C5542494C49444144450100490000000100055749445448020002001400
      0000}
    object cdsAuxSolubilidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsAuxSolubilidadeTIPO_SOLUBILIDADE: TStringField
      FieldName = 'TIPO_SOLUBILIDADE'
    end
  end
  object cdsAuxUnidEspecial: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 214
    Top = 306
    Data = {
      950000009619E0BD0100000018000000040000000000030000009500134C4947
      5F434F445F554E49445F4D454449444104000100000000000944455343524943
      414F01004900000001000557494454480200020064000A414252455649414341
      4F01004900000001000557494454480200020005000D45535441444F5F464953
      49434F0100490000000100055749445448020002000F000000}
    object cdsAuxUnidEspecialLIG_COD_UNID_MEDIDA: TIntegerField
      FieldName = 'LIG_COD_UNID_MEDIDA'
    end
    object cdsAuxUnidEspecialDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsAuxUnidEspecialABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      Size = 5
    end
    object cdsAuxUnidEspecialESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
  end
  object cdsProdutoUnidEspecial: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoUnidEspecial
    Params = <>
    Left = 752
    Top = 256
    object cdsProdutoUnidEspecialLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoUnidEspecialLIG_COD_UNID_MEDIDA: TIntegerField
      FieldName = 'LIG_COD_UNID_MEDIDA'
      Required = True
    end
    object cdsProdutoUnidEspecialDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
    object cdsProdutoUnidEspecialABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      ProviderFlags = []
      Size = 5
    end
    object cdsProdutoUnidEspecialESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      ProviderFlags = []
      Size = 15
    end
  end
  object sqlProdutoUnidEspecial: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.lig_cod_produto,'
      '  a.lig_cod_unid_medida,'
      '  b.descricao,'
      '  b.abreviacao,'
      '  b.estado_fisico'
      'from F_PRODUTO_UNID_MEDIDA_ESP a'
      
        'left join unidade_medida b on (b.cod_unidade = a.lig_cod_unid_me' +
        'dida)'
      'where a.lig_cod_produto = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 256
    object sqlProdutoUnidEspecialLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoUnidEspecialLIG_COD_UNID_MEDIDA: TIntegerField
      FieldName = 'LIG_COD_UNID_MEDIDA'
      Required = True
    end
    object sqlProdutoUnidEspecialDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
    object sqlProdutoUnidEspecialABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      ProviderFlags = []
      Size = 5
    end
    object sqlProdutoUnidEspecialESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      ProviderFlags = []
      Size = 15
    end
  end
  object cdsAuxArmazena: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 214
    Top = 402
    Data = {
      720000009619E0BD01000000180000000300000000000300000072001A4C4947
      5F434F445F5449504F5F41524D415A454E414D454E544F04000100000000000D
      41524D415A454E414D454E544F0200490000000100055749445448020002002C
      010A5052494F52494441444504000100000000000000}
    object cdsAuxArmazenaLIG_COD_TIPO_ARMAZENAMENTO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ARMAZENAMENTO'
    end
    object cdsAuxArmazenaARMAZENAMENTO: TStringField
      FieldName = 'ARMAZENAMENTO'
      Size = 300
    end
    object cdsAuxArmazenaPRIORIDADE: TIntegerField
      FieldName = 'PRIORIDADE'
    end
  end
  object cdsProdutoArmazena: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoArmazena
    Params = <>
    Left = 752
    Top = 304
    object cdsProdutoArmazenaLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoArmazenaLIG_COD_TIPO_ARMAZENAMENTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_TIPO_ARMAZENAMENTO'
      Required = True
    end
    object cdsProdutoArmazenaPRIORIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'PRIORIDADE'
      Required = True
    end
    object cdsProdutoArmazenaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsProdutoArmazenaARMAZENAMENTO: TStringField
      FieldName = 'ARMAZENAMENTO'
      ProviderFlags = []
      Size = 300
    end
  end
  object sqlProdutoArmazena: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.lig_cod_produto,'
      '  a.lig_cod_tipo_armazenamento,'
      '  a.prioridade,'
      '  a.data_cad,'
      '  b.descricao as armazenamento'
      'from PRODUTO_ARMAZENAMENTO a'
      
        'left join tipo_armazenamento b on (b.cod_armazenamento = a.lig_c' +
        'od_tipo_armazenamento)'
      'where a.lig_cod_produto = :cod_produto'
      'order by a.prioridade')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 304
    object sqlProdutoArmazenaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoArmazenaLIG_COD_TIPO_ARMAZENAMENTO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ARMAZENAMENTO'
      Required = True
    end
    object sqlProdutoArmazenaPRIORIDADE: TIntegerField
      FieldName = 'PRIORIDADE'
      Required = True
    end
    object sqlProdutoArmazenaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlProdutoArmazenaARMAZENAMENTO: TStringField
      FieldName = 'ARMAZENAMENTO'
      ProviderFlags = []
      Size = 300
    end
  end
  object cdsProdutoIncompativel: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoIncompativel
    Params = <>
    Left = 752
    Top = 352
    object cdsProdutoIncompativelCOD_INCOMPATIVEL: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_INCOMPATIVEL'
      Required = True
    end
    object cdsProdutoIncompativelLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsProdutoIncompativelLIG_COD_PROD_INCOMPATIVEL: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PROD_INCOMPATIVEL'
      Required = True
    end
    object cdsProdutoIncompativelLIG_COD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsProdutoIncompativelTIPO: TIntegerField
      Alignment = taCenter
      FieldName = 'TIPO'
      Required = True
    end
    object cdsProdutoIncompativelOBS: TStringField
      FieldName = 'OBS'
      Size = 1000
    end
    object cdsProdutoIncompativelDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsProdutoIncompativelPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 201
    end
    object cdsProdutoIncompativelTIPO_DESC: TStringField
      FieldName = 'TIPO_DESC'
      ProviderFlags = []
      FixedChar = True
      Size = 13
    end
    object cdsProdutoIncompativelFORMA: TStringField
      FieldName = 'FORMA'
      ProviderFlags = []
      Size = 201
    end
  end
  object sqlProdutoIncompativel: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.cod_incompativel,'
      '  a.lig_cod_produto,'
      '  a.lig_cod_prod_incompativel,'
      '  a.lig_cod_forma,'
      '  a.tipo,'
      '  a.obs,'
      '  a.data_cad,'
      '  case'
      '    when a.tipo = 0 then '#39'PERMITIDO'#39
      '    when a.tipo = 1 then '#39'NAO PERMITIDO'#39
      '  end as tipo_desc,'
      '  b.descricao ||'#39'/'#39'|| b.apresentacao as produto,'
      '  case'
      
        '    when a.lig_cod_forma = 0 then '#39'-- INCOMPATIVEL COM TODAS --'#39 +
        ' else c.descricao'
      '  end as forma'
      'from F_PRODUTO_INCOMPATIVEL a'
      
        'left join produto b on (b.cod_produto = a.lig_cod_prod_incompati' +
        'vel)'
      
        'left join f_forma_farmaceutica c on (c.cod_forma = a.lig_cod_for' +
        'ma)'
      'where a.lig_cod_produto = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 352
    object sqlProdutoIncompativelCOD_INCOMPATIVEL: TIntegerField
      FieldName = 'COD_INCOMPATIVEL'
      Required = True
    end
    object sqlProdutoIncompativelLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object sqlProdutoIncompativelLIG_COD_PROD_INCOMPATIVEL: TIntegerField
      FieldName = 'LIG_COD_PROD_INCOMPATIVEL'
      Required = True
    end
    object sqlProdutoIncompativelLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object sqlProdutoIncompativelTIPO: TIntegerField
      FieldName = 'TIPO'
      Required = True
    end
    object sqlProdutoIncompativelOBS: TStringField
      FieldName = 'OBS'
      Size = 1000
    end
    object sqlProdutoIncompativelDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlProdutoIncompativelPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 201
    end
    object sqlProdutoIncompativelTIPO_DESC: TStringField
      FieldName = 'TIPO_DESC'
      ProviderFlags = []
      FixedChar = True
      Size = 13
    end
    object sqlProdutoIncompativelFORMA: TStringField
      FieldName = 'FORMA'
      ProviderFlags = []
      Size = 201
    end
  end
  object qryPKProdutoIncompativel: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_produto_incompativel,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 448
    Top = 400
    object qryPKProdutoIncompativelGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object cdsAuxIncompativel: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 326
    Top = 400
    Data = {
      CB0000009619E0BD010000001800000007000000000003000000CB00194C4947
      5F434F445F50524F445F494E434F4D5041544956454C04000100000000000D4C
      49475F434F445F464F524D4104000100000000000750524F4455544F01004900
      00000100055749445448020002006400045449504F0400010000000000095449
      504F5F444553430100490000000100055749445448020002000F00034F425302
      0049000000010005574944544802000200E80305464F524D4101004900000001
      000557494454480200020064000000}
    object cdsAuxIncompativelLIG_COD_PROD_INCOMPATIVEL: TIntegerField
      DisplayWidth = 1
      FieldName = 'LIG_COD_PROD_INCOMPATIVEL'
    end
    object cdsAuxIncompativelLIG_COD_FORMA: TIntegerField
      DisplayWidth = 1
      FieldName = 'LIG_COD_FORMA'
    end
    object cdsAuxIncompativelPRODUTO: TStringField
      DisplayWidth = 6
      FieldName = 'PRODUTO'
      Size = 100
    end
    object cdsAuxIncompativelTIPO: TIntegerField
      FieldName = 'TIPO'
    end
    object cdsAuxIncompativelTIPO_DESC: TStringField
      DisplayWidth = 1
      FieldName = 'TIPO_DESC'
      Size = 15
    end
    object cdsAuxIncompativelOBS: TStringField
      DisplayWidth = 60
      FieldName = 'OBS'
      Size = 1000
    end
    object cdsAuxIncompativelFORMA: TStringField
      DisplayWidth = 5
      FieldName = 'FORMA'
      Size = 100
    end
  end
  object cdsProdutoAssociado: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlProdutoAssociado
    Params = <>
    Left = 752
    Top = 400
    object cdsProdutoAssociadoCOD_ASSOCIADO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_ASSOCIADO'
      Required = True
    end
    object cdsProdutoAssociadoLIG_COD_PROD_ORIGEM: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PROD_ORIGEM'
      Required = True
    end
    object cdsProdutoAssociadoLIG_COD_PROD_ASSOCIADO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PROD_ASSOCIADO'
      Required = True
    end
    object cdsProdutoAssociadoLIG_COD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsProdutoAssociadoLIG_COD_UNIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_UNIDADE'
      Required = True
    end
    object cdsProdutoAssociadoLIG_COD_UNIDADE_DOSAGEM: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_UNIDADE_DOSAGEM'
      Required = True
    end
    object cdsProdutoAssociadoTIPO: TIntegerField
      FieldName = 'TIPO'
    end
    object cdsProdutoAssociadoQTDE_UNIDADE_UTILIZADA: TFMTBCDField
      Alignment = taCenter
      FieldName = 'QTDE_UNIDADE_UTILIZADA'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsProdutoAssociadoDOSAGEM_INICIAL: TFMTBCDField
      Alignment = taCenter
      FieldName = 'DOSAGEM_INICIAL'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsProdutoAssociadoDOSAGEM_FINAL: TFMTBCDField
      Alignment = taCenter
      FieldName = 'DOSAGEM_FINAL'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsProdutoAssociadoDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsProdutoAssociadoTIPO_DESC: TStringField
      FieldName = 'TIPO_DESC'
      ProviderFlags = []
      FixedChar = True
      Size = 58
    end
    object cdsProdutoAssociadoPROD_ASSOCIADO: TStringField
      FieldName = 'PROD_ASSOCIADO'
      ProviderFlags = []
      Size = 201
    end
    object cdsProdutoAssociadoFORMA: TStringField
      FieldName = 'FORMA'
      ProviderFlags = []
      Size = 100
    end
    object cdsProdutoAssociadoUNID_MEDIDA: TStringField
      FieldName = 'UNID_MEDIDA'
      ProviderFlags = []
      Size = 100
    end
    object cdsProdutoAssociadoUNID_MEDIDA_DOSAGEM: TStringField
      FieldName = 'UNID_MEDIDA_DOSAGEM'
      ProviderFlags = []
      Size = 100
    end
  end
  object sqlProdutoAssociado: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_PRODUTO'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    a.COD_ASSOCIADO,'
      '    a.lig_cod_prod_origem,'
      '    a.lig_cod_prod_associado,'
      '    a.LIG_COD_FORMA,'
      '    a.LIG_COD_UNIDADE,'
      '    a.LIG_COD_UNIDADE_DOSAGEM,'
      '    a.TIPO,'
      '    a.QTDE_UNIDADE_UTILIZADA,'
      '    a.DOSAGEM_INICIAL,'
      '    a.DOSAGEM_FINAL,'
      '    a.DATA_CAD,'
      '    case'
      '      when a.tipo = 0 then '#39'Associa'#231#227'o por quantidade'#39
      
        '      when a.tipo = 1 then '#39'Associa'#231#227'o por percentual em rela'#231#227'o' +
        ' ao volume da f'#243'rmula'#39
      
        '      when a.tipo = 2 then '#39'Associa'#231#227'o por percentual em rela'#231#227'o' +
        ' ao produto associante'#39
      '    end as tipo_desc,'
      '    b.descricao ||'#39'/'#39'|| b.apresentacao as prod_associado,'
      '    c.descricao as forma,'
      '    d.descricao as unid_medida,'
      '    e.descricao as unid_medida_dosagem'
      'from F_PRODUTO_ASSOCIADO a'
      
        'left join produto b on (b.cod_produto = a.lig_cod_prod_associado' +
        ')'
      
        'left join f_forma_farmaceutica c on (c.cod_forma = a.lig_cod_for' +
        'ma)'
      
        'left join unidade_medida d on (d.cod_unidade = a.lig_cod_unidade' +
        ')'
      
        'left join unidade_medida e on (e.cod_unidade = a.lig_cod_unidade' +
        '_dosagem)'
      'where a.lig_cod_prod_origem = :cod_produto')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 632
    Top = 400
    object sqlProdutoAssociadoCOD_ASSOCIADO: TIntegerField
      FieldName = 'COD_ASSOCIADO'
      Required = True
    end
    object sqlProdutoAssociadoLIG_COD_PROD_ORIGEM: TIntegerField
      FieldName = 'LIG_COD_PROD_ORIGEM'
      Required = True
    end
    object sqlProdutoAssociadoLIG_COD_PROD_ASSOCIADO: TIntegerField
      FieldName = 'LIG_COD_PROD_ASSOCIADO'
      Required = True
    end
    object sqlProdutoAssociadoLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object sqlProdutoAssociadoLIG_COD_UNIDADE: TIntegerField
      FieldName = 'LIG_COD_UNIDADE'
      Required = True
    end
    object sqlProdutoAssociadoLIG_COD_UNIDADE_DOSAGEM: TIntegerField
      FieldName = 'LIG_COD_UNIDADE_DOSAGEM'
      Required = True
    end
    object sqlProdutoAssociadoTIPO: TIntegerField
      FieldName = 'TIPO'
    end
    object sqlProdutoAssociadoQTDE_UNIDADE_UTILIZADA: TFMTBCDField
      FieldName = 'QTDE_UNIDADE_UTILIZADA'
      Precision = 15
      Size = 2
    end
    object sqlProdutoAssociadoDOSAGEM_INICIAL: TFMTBCDField
      FieldName = 'DOSAGEM_INICIAL'
      Precision = 15
      Size = 2
    end
    object sqlProdutoAssociadoDOSAGEM_FINAL: TFMTBCDField
      FieldName = 'DOSAGEM_FINAL'
      Precision = 15
      Size = 2
    end
    object sqlProdutoAssociadoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlProdutoAssociadoTIPO_DESC: TStringField
      FieldName = 'TIPO_DESC'
      ProviderFlags = []
      FixedChar = True
      Size = 58
    end
    object sqlProdutoAssociadoPROD_ASSOCIADO: TStringField
      FieldName = 'PROD_ASSOCIADO'
      ProviderFlags = []
      Size = 201
    end
    object sqlProdutoAssociadoFORMA: TStringField
      FieldName = 'FORMA'
      ProviderFlags = []
      Size = 100
    end
    object sqlProdutoAssociadoUNID_MEDIDA: TStringField
      FieldName = 'UNID_MEDIDA'
      ProviderFlags = []
      Size = 100
    end
    object sqlProdutoAssociadoUNID_MEDIDA_DOSAGEM: TStringField
      FieldName = 'UNID_MEDIDA_DOSAGEM'
      ProviderFlags = []
      Size = 100
    end
  end
  object qryPKProdutoAssociado: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_produto_associado,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 448
    Top = 448
    object qryPKProdutoAssociadoGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object cdsAuxAssociado: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 326
    Top = 448
    Data = {
      C00100009619E0BD01000000180000000D000000000003000000C001164C4947
      5F434F445F50524F445F4153534F434941444F04000100000000000D4C49475F
      434F445F464F524D4104000100000000000F4C49475F434F445F554E49444144
      450400010000000000174C49475F434F445F554E49444144455F444F53414745
      4D0400010000000000045449504F0400010000000000095449504F5F44455343
      010049000000010005574944544802000200640016515444455F554E49444144
      455F5554494C495A414441080004000000010007535542545950450200490006
      004D6F6E6579000F444F534147454D5F494E494349414C080004000000010007
      535542545950450200490006004D6F6E6579000D444F534147454D5F46494E41
      4C080004000000010007535542545950450200490006004D6F6E65790005464F
      524D4101004900000001000557494454480200020064000E50524F445F415353
      4F434941444F01004900000001000557494454480200020064000B554E49445F
      4D4544494441010049000000010005574944544802000200640013554E49445F
      4D45444944415F444F534147454D010049000000010005574944544802000200
      64000000}
    object cdsAuxAssociadoLIG_COD_PROD_ASSOCIADO: TIntegerField
      FieldName = 'LIG_COD_PROD_ASSOCIADO'
    end
    object cdsAuxAssociadoLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
    end
    object cdsAuxAssociadoLIG_COD_UNIDADE: TIntegerField
      FieldName = 'LIG_COD_UNIDADE'
    end
    object cdsAuxAssociadoLIG_COD_UNIDADE_DOSAGEM: TIntegerField
      FieldName = 'LIG_COD_UNIDADE_DOSAGEM'
    end
    object cdsAuxAssociadoTIPO: TIntegerField
      FieldName = 'TIPO'
    end
    object cdsAuxAssociadoTIPO_DESC: TStringField
      FieldName = 'TIPO_DESC'
      Size = 100
    end
    object cdsAuxAssociadoQTDE_UNIDADE_UTILIZADA: TCurrencyField
      FieldName = 'QTDE_UNIDADE_UTILIZADA'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
    end
    object cdsAuxAssociadoDOSAGEM_INICIAL: TCurrencyField
      FieldName = 'DOSAGEM_INICIAL'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
    end
    object cdsAuxAssociadoDOSAGEM_FINAL: TCurrencyField
      FieldName = 'DOSAGEM_FINAL'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
    end
    object cdsAuxAssociadoFORMA: TStringField
      FieldName = 'FORMA'
      Size = 100
    end
    object cdsAuxAssociadoPROD_ASSOCIADO: TStringField
      FieldName = 'PROD_ASSOCIADO'
      Size = 100
    end
    object cdsAuxAssociadoUNID_MEDIDA: TStringField
      FieldName = 'UNID_MEDIDA'
      Size = 100
    end
    object cdsAuxAssociadoUNID_MEDIDA_DOSAGEM: TStringField
      FieldName = 'UNID_MEDIDA_DOSAGEM'
      Size = 100
    end
  end
end
